isnet Internet/Isnet Internet CD.iso/prog/hiz/09/09.exe/adynware.exe/perl/lib/site/URI/URL/prospero.pm

Perl POD Document | 1999-12-28 | 285 b | 14 lines

package URI::URL::prospero;
require URI::URL::_generic;
@ISA = qw(URI::URL::_generic);


sub default_port { 1525 }       # says rfc1738, section 3.11

sub _parse {
    my($self, $init) = @_;
    $self->URI::URL::_generic::_parse($init, qw(netloc path params frag));
}

1;